home *** CD-ROM | disk | FTP | other *** search
/ Network Support Library / RoseWare - Network Support Library.iso / mac / netmai.sit / NetMail-OT / background_2608.txt < prev    next >
Text File  |  1990-05-02  |  8KB  |  351 lines
  1. -- background: 2608 from stack: in
  2. -- bmap block id: 3757
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: MailCard
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 01
  10. -- high flags: 0007
  11. -- rect: left=11 top=58 right=307 bottom=502
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 4
  16. -- text size: 10
  17. -- style flags: 0
  18. -- line height: 13
  19. -- part name: Letter
  20.  
  21.  
  22. -- part 2 (field)
  23. -- low flags: 01
  24. -- high flags: 0000
  25. -- rect: left=345 top=12 right=30 bottom=411
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 0
  29. -- font id: 3
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: User
  34.  
  35.  
  36. -- part 3 (field)
  37. -- low flags: 01
  38. -- high flags: 0000
  39. -- rect: left=45 top=35 right=53 bottom=492
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 0
  43. -- font id: 3
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: RE
  48.  
  49.  
  50. -- part 4 (button)
  51. -- low flags: 00
  52. -- high flags: A004
  53. -- rect: left=195 top=309 right=331 bottom=297
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 0 / 0
  56. -- text alignment: 1
  57. -- font id: 0
  58. -- text size: 12
  59. -- style flags: 0
  60. -- line height: 16
  61. -- part name: Kill This Mail
  62. ----- HyperTalk script -----
  63. on mouseUp
  64.   domenu "Delete Card"
  65. end mouseUp
  66.  
  67.  
  68.  
  69. -- part 5 (button)
  70. -- low flags: 00
  71. -- high flags: 2000
  72. -- rect: left=120 top=310 right=328 bottom=151
  73. -- title width / last selected line: 0
  74. -- icon id / first selected line: 15420 / 15420
  75. -- text alignment: 1
  76. -- font id: 0
  77. -- text size: 12
  78. -- style flags: 0
  79. -- line height: 16
  80. -- part name: Left
  81. ----- HyperTalk script -----
  82. on mouseUp
  83.   set the rect of bkgnd field 1 to 11,58,502,307
  84.   hide bkgnd field id 10
  85.   hide bkgnd button id 11
  86.   hide bkgnd button id 13
  87.   hide bkgnd button id 14
  88.   go to previous
  89.   if bkgnd field 1 is empty then
  90.     go to previous
  91.   end if
  92. end mouseUp
  93.  
  94.  
  95.  
  96. -- part 6 (button)
  97. -- low flags: 00
  98. -- high flags: 2000
  99. -- rect: left=156 top=310 right=328 bottom=187
  100. -- title width / last selected line: 0
  101. -- icon id / first selected line: 16560 / 16560
  102. -- text alignment: 1
  103. -- font id: 0
  104. -- text size: 12
  105. -- style flags: 0
  106. -- line height: 16
  107. -- part name: Right
  108. ----- HyperTalk script -----
  109. on mouseUp
  110.   set the rect of bkgnd field 1 to 11,58,502,307
  111.   hide bkgnd field id 10
  112.   hide bkgnd button id 11
  113.   hide bkgnd button id 13
  114.   hide bkgnd button id 14
  115.   go next
  116. end mouseUp
  117.  
  118.  
  119.  
  120. -- part 7 (button)
  121. -- low flags: 00
  122. -- high flags: 2000
  123. -- rect: left=83 top=310 right=328 bottom=114
  124. -- title width / last selected line: 0
  125. -- icon id / first selected line: 24317 / 24317
  126. -- text alignment: 1
  127. -- font id: 0
  128. -- text size: 12
  129. -- style flags: 0
  130. -- line height: 16
  131. -- part name: Start
  132. ----- HyperTalk script -----
  133. on mouseUp
  134.   set the rect of bkgnd field 1 to 11,58,502,307
  135.   hide bkgnd field id 10
  136.   hide bkgnd button id 11
  137.   hide bkgnd button id 13
  138.   hide bkgnd button id 14
  139.   doMenu "Compact Stack"
  140.   go to first card
  141. end mouseUp
  142.  
  143.  
  144.  
  145. -- part 8 (button)
  146. -- low flags: 00
  147. -- high flags: 2000
  148. -- rect: left=14 top=311 right=329 bottom=45
  149. -- title width / last selected line: 0
  150. -- icon id / first selected line: 20689 / 20689
  151. -- text alignment: 1
  152. -- font id: 0
  153. -- text size: 12
  154. -- style flags: 0
  155. -- line height: 16
  156. -- part name: Home
  157. ----- HyperTalk script -----
  158. on mouseUp
  159.   go home
  160. end mouseUp
  161.  
  162.  
  163.  
  164. -- part 9 (button)
  165. -- low flags: 00
  166. -- high flags: A004
  167. -- rect: left=381 top=309 right=331 bottom=502
  168. -- title width / last selected line: 0
  169. -- icon id / first selected line: 0 / 0
  170. -- text alignment: 1
  171. -- font id: 0
  172. -- text size: 12
  173. -- style flags: 0
  174. -- line height: 16
  175. -- part name: Write/See Reply
  176. ----- HyperTalk script -----
  177. on mouseUp
  178.   set the rect of bkgnd field 1 to 11,58,502,187
  179.   show bkgnd field id 10
  180.   show bkgnd button id 11
  181.   show bkgnd button id 13
  182.   show bkgnd button 9
  183. end mouseUp
  184.  
  185.  
  186.  
  187. -- part 10 (field)
  188. -- low flags: 80
  189. -- high flags: 0007
  190. -- rect: left=11 top=187 right=307 bottom=502
  191. -- title width / last selected line: 0
  192. -- icon id / first selected line: 0 / 0
  193. -- text alignment: 0
  194. -- font id: 4
  195. -- text size: 10
  196. -- style flags: 0
  197. -- line height: 13
  198. -- part name: Reply
  199. ----- HyperTalk script -----
  200. on openCard
  201.   hide me
  202. end openCard
  203.  
  204.  
  205.  
  206. -- part 11 (button)
  207. -- low flags: 80
  208. -- high flags: 8001
  209. -- rect: left=280 top=13 right=29 bottom=345
  210. -- title width / last selected line: 0
  211. -- icon id / first selected line: 0 / 0
  212. -- text alignment: 1
  213. -- font id: 0
  214. -- text size: 12
  215. -- style flags: 0
  216. -- line height: 16
  217. -- part name: Send to:
  218. ----- HyperTalk script -----
  219. on mouseUp
  220.   --process reply
  221.   push card
  222.   set lockscreen to true
  223.   get bkgnd field 2
  224.   show msg
  225.   put it into userID
  226.   put "Looking for user ID information..."
  227.   go to first card
  228.   if userID is not in card field 3 then
  229.     put "ID for this person is not present." into msg
  230.     pop card
  231.     set the lockscreen to false
  232.     repeat for 5000
  233.     end repeat
  234.     hide msg
  235.     exit mouseUp
  236.   end if
  237.   put "ID info found -- Loading parameters" into msg
  238.   put 1 into lineNr
  239.   repeat for the number of lines in card field 3
  240.     if userID contains line lineNr of card field 3 then
  241.       get line lineNr of card field 4
  242.       put it into temp
  243.       put card field 2 & ":" & temp into destination
  244.       get card field 7
  245.       put it into myID
  246.       put ":" & myID after destination
  247.       add 1 to line lineNr of card field 9
  248.       if line lineNr of card field 9 > 90 then
  249.         put 1 into line lineNr of card field 9
  250.       end if
  251.       get line lineNr of card field 9
  252.       put ".N" & it after destination
  253.       pop card
  254.       put "Sending mail..." into msg
  255.       open file destination
  256.       write bkgnd field 3 to file destination
  257.       write return & "
  258.       " to file destination
  259.       write return & "
  260.       " to file destination
  261.       repeat with lnCount =1 to the number of lines in bkgnd field 4
  262.         write line lnCount of bkgnd field 4 & return & "
  263.         " to file destination
  264.       end repeat
  265.       close file destination
  266.       put "Mail sent." into msg
  267.       push card
  268.       go to first card
  269.       get card field 8
  270.       pop card
  271.       StdFile(it)
  272.       set lockscreen to false
  273.       hide msg
  274.       exit repeat
  275.       --reset screen
  276.       hide bkgnd button id 13
  277.       hide bkgnd field id 10
  278.       hide bkgnd button 9
  279.       hide me
  280.       exit repeat
  281.     end if
  282.     add 1 to lineNr
  283.   end repeat
  284.   hide bkgnd field id 10
  285.   set the rect of bkgnd field 1 to 11,58,502,307
  286.   hide bkgnd button id 11
  287.   hide bkgnd button id 13
  288.   hide bkgnd button 9
  289. end mouseUp
  290.  
  291.  
  292.  
  293. -- part 13 (button)
  294. -- low flags: 80
  295. -- high flags: A004
  296. -- rect: left=196 top=309 right=331 bottom=298
  297. -- title width / last selected line: 0
  298. -- icon id / first selected line: 0 / 0
  299. -- text alignment: 1
  300. -- font id: 0
  301. -- text size: 12
  302. -- style flags: 0
  303. -- line height: 16
  304. -- part name: Cancel/Clear
  305. ----- HyperTalk script -----
  306. on mouseUp
  307.   set the rect of bkgnd field 1 to 11,58,502,307
  308.   put empty into bkgnd field id 10
  309.   hide bkgnd button id 11
  310.   hide bkgnd field id 10
  311.   hide me
  312. end mouseUp
  313.  
  314.  
  315.  
  316. -- part 14 (button)
  317. -- low flags: 80
  318. -- high flags: A004
  319. -- rect: left=296 top=309 right=331 bottom=383
  320. -- title width / last selected line: 0
  321. -- icon id / first selected line: 0 / 0
  322. -- text alignment: 1
  323. -- font id: 0
  324. -- text size: 12
  325. -- style flags: 0
  326. -- line height: 16
  327. -- part name: Close Reply
  328. ----- HyperTalk script -----
  329. on mouseUp
  330.   set the rect of bkgnd field 1 to 11,58,502,307
  331.   hide bkgnd field id 10
  332.   hide bkgnd button id 11
  333.   hide bkgnd button id 13
  334.   hide me
  335. end mouseUp
  336.  
  337.  
  338.  
  339. -- part 15 (field)
  340. -- low flags: 00
  341. -- high flags: 0000
  342. -- rect: left=413 top=12 right=29 bottom=499
  343. -- title width / last selected line: 0
  344. -- icon id / first selected line: 0 / 0
  345. -- text alignment: 0
  346. -- font id: 3
  347. -- text size: 12
  348. -- style flags: 0
  349. -- line height: 16
  350. -- part name: UserID
  351.